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DOUBLE PRECISION AND FLOATING POINT iNTERCHANGER 


DECUS Program Library Write-up 

DECUS No. 8-379a 

ABSTRACT 



This is a subroutine for conversion of double precision to floating point format and 
vice versa. A routine to move the radix point in a double precision number to any 
location is also included as a separate subroutine. 









EXTENDED ROTATE CHECKER 


START AT(REV DP NOTATION): 0010\0000\0300 
ROTATE NUM TO RADIX PLACE: 3 

MAKE INCREMENTS OFCREV DP NOTATION): 0010\0000\0010 


NUMBER BEFORE 
ROTATION 
0010\0000\0300 
0010\0000X0310 
0010\0000\0320 
0010\0000\0330 
0010\0000X0340 
0010X0000X0350 
0010X0000X0360 
0010X0000X0370 
0010X0000X0400 


NUMBER AFTER 
ROTATION 
0003X3000X0000 
0003X3100X0000 
0003X3200X0000 
0003X3300X0000 
0003X3400X0000 
0003X3500X0000 
0003X3600X0000 
0003X3700X0000 


HAVE REACHED POINT OF ERROR: 

LAST TYPED NUMBER CANNOT BE ROTATED LEFT THE PRESCRIBED AMOUNT. 


EXTENDED ROTATE CHECKER 

START AT(REV DP NOTATION): 0010X0000X0500 
ROTATE NUM TO RADIX PLACE: 3 

MAKE INCREMENTS OF(REV DP NOTATION): 0010X7777X7770 


NUMBER BEFORE NUMBER AFTER 

ROTATION ROTATION 

0010X0000X0500 

HAVE REACHED POINT OF ERROR: 

LAST TYPED NUMBER CANNOT BE ROTATED LEFT THE PRESCRIBED AMOUNT. 
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EXTENDED ROTATE CHECKER 


START ATCREV DP NOTATION): 0006\0000\1000 
ROTATE NUM TO RADIX PLACE: 2 

MAKE INCREMENTS OFCREV DP NOTATION): 0006\7777\7700 


NUMBER BEFORE 
ROTATION 
0006\0000\1000 
0006\0000X0700 
0006X0000X0600 
0006X0000X0500 
0006X0000X0400 
0006X0000X0300 
0006X0000X0200 
0006X0000X0100 
0006X0000X0000 
0006X7777X7700 
0006X7777X7600 
0006X7777X7500 
0006X7777X7400 
0006X7777X7300 
0006X7777X7200 
0006X7777X7100 
0006X7777X7000 


NUMBER AFTER 
ROTATION 
0002X1000X0000 
0002X0700X0000 
0002X0600X0000 
0002X0500X0000 
0002X0400X0000 
0002X0300X0000 
0002X0200X0000 
0002X0100X0000 
0002X0000X0000 
0002X7700X0000 
0002X7600X0000 
0002X7500X0000 
0002X7400X0000 
0002X7300X0000 
0002X7200X0000 
0002X7100X0000 
0002X7000X0000 


EXTENDED ROTATE CHECKER 

START ATCREV DP NOTATION): 0006X7777X7000 
ROTATE NUM TO RADIX PLACE: 2 

MAKE INCREMENTS OFCREV DP NOTATION): 0006X0000X0100 


NUMBER BEFORE 
ROTATION 
0006X7777X7000 
0006X7777X7100 
0006X7777X7200 
0006X7777X7300 
0006X7777X7400 
0006X7777X7500 
0006X7777X7600 
0006X7777X7700 
0006X0000X0000 
0006X0000X0100 
0006X0000X0200 
0006X0000X0300 
0006X0000X0400 
0006X0000X0500 
0006X0000X0600 


NUMBER AFTER 
ROTATION 
0002X7000X0000 
0002X7100X0000 
0002X7200X0000 
0002X7300X0000 
0002X7400X0000 
0002X7500X0000 
0002X7600X0000 
0002X7700X0000 
0002X0000X0000 
0002X0100X0000 
0002X0200X0000 
0002X0300X0000 
0002X0400X0000 
0002X0500X0000 
0002X0600X0000 



extended rotate checker 


START AT(REV DP NOTATION): 0004X7775X0000 
ROTATE NUM TO RADIX PLACE: 1 

MAKE INCREMENTS OFCREV DP NOTATION): 0004X7777X7000 


NUMBER BEFORE 


NUMBER AFTER 


ROTATION 


ROTATION 


0004\7775\0000 
0004\7774\7000 
0004\7774\6000 
0004\7774\5000 
0004\7774X4000 
0004X7774X3000 
0004X7774X2000 
0004X7774X1000 
0004X7774X0000 


0001X5000X0000 

0001X4700X0000 

0001X4600X0000 

0001X4500X0000 

0001X4400X0000 

0001X4300X0000 

0001X4200X0000 

0001X4100X0000 

0001X4000X0000 


0004X7773X7000 

HAVE REACHED POINT OF ERROR: 

LAST TYPED NUMBER CANNOT BE ROTATED LEFT THE PRESCRIBED AMOUNT. 


EXTENDED ROTATE CHECKER 

START AT(REV DP NOTATION): 0004X7773X0000 
ROTATE NUM TO RADIX PLACE: 1 

MAKE INCREMENTS OF(REV DP NOTATION): 0004X0000X1000 


NUMBER BEFORE NUMBER AFTER 

ROTATION ROTATION 

0004X7773X0000 ' 

HAVE REACHED POINT OF ERROR: 

LAST TYPED NUMBER CANNOT BE ROTATED LEFT THE PRESCRIBED AMOUNT. 
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0000 

0001 

0002 

0003 


*20 

PMODE 

//DOUBLE PRECISION AND FLOATING POINT NUMBER— 


0005 

0006 

0007 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 


// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 


INTERCHANGER WITH ROTATE 
ROTATE: 

ENTRY INTO SUBROUTINE: JMS I L175 
PREPARATION: PUT DP NUMBER IN LOCS--- 
170-72(EXP) IN REVERSE— 

DP NOTATION AS NOTED BELOW— 

AND TAD THE NEW RADIX PLACE— 

JUST BEFORE THE JMS. 

DP NUMBER IS CHANGED TO THE NEW CONFIGURATION 
GIVEN BY THE NUMBER IN THE AC JUST— 

BEFORE THE JMS. 

FPTODE: 

ENTRY INTO SUBROUTINE: JMS I LI73 
PREPARATION: PUT FP NUMBER IN LOCS— 

17,0-72 (EXP) 

FP NUMBER IS CHANGED TO REVERSE DP— 

NOTATION AS NOTED BELOW, RESULT — 

IS PLACED IN LOCS 170-72(EXP) 

DPTOFP: 

ENTRY INTO SUBROUTINE: JMS I L174 
PREPARATION: PLACE DOUBLE PRECISION— 

NUMBER IN LOCS 170-72 AS — 


0031 



// 

NOTED BELOW IN REFERSE DP— 


0032 



// 

NOTATION 


0033 



// 

DP NUMBER IS CHANGED TO NORMAL 1 

0034 



// 

AND PLACED IN LOCS 170-72(EXP) 


0035 



// 

REVERSE DP NOTATION: 


0036 



// 

OCTAL MSH LSH 


0037 



// 

0 0 0 0/ 000 0/ 00 

0 

0040 



// 

RADIX T T T T t V T 

r 

0041 



// 

PLACE 0 1 2 3 4 5 6 

7 

0042 



*170 



0043 

0170 

0000 

EXP, 

0) 


0043 

0171 

0000 

0; 



0043 

0172 

0000 

0 



0044 

0173 

5320 

LI 73, 

5320 


0045 

0174 

5325 

LI 74, 

5325 


0046 

0175 

5200 

LI 75, 

5200 


0047 



*5200 



0050 

5200 

0000 

ROTATE, 

0 


0051 

5201 

3316 


DC A EXPHLD 


0052 

520(2 

4365 


JMS MTEST 


0053 

5203 

1316 


TAD EXPHLD 


0054 

5204 

7,041 


CIA 


0055 

5205 

117,0 


TAD EXP 


0056 

5206 

7450 


SNA 


0057 

5207 

5600 


JMP I ROTATE 



0 

T 

10 
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0060 

5210 

0061 

5211 

0062 

5212 

0063 

5213 

0064 

5214 

0065 

5215 

0066 

5216 

0067 

5217 

0070 

5220 

0071 

5221 

0072 

5222 

0073 

5223 

0074 

5224 

0075 

5225 

0076 

5226 

W 0077 

5227 

0100 

5230 

0101 

5231 

0102 

5232 

0103 

5233 

0104 

5234 

0105 

5235 

0106 

5236 

0107 

5237 

0110 

5240 

0111 

5241 

0112 

5242 

0113 

5243 

0114 

5244 

0115 

5245 

0116 

5246 

• 0117 

5247 

0120 

5250 

0121 

5251 

0122 

5252 

0123 

5253 

0124 

5254 

0125 

5255 

0126 

5256 

0127 

5257 

0130 

5260 

0131 

5261 

0132 

5262 

0133 

5263 

0134 

5264 

0135 

5265 

0136 

5266 

0137 

5267 

0140 

5270 

0141 

5271 

0142 

5272 


317,0 

1170 

1170 

1170 

3170 
1170 
7700 
5255 
5223 
4711 
4300 

1170 ROTR, 
1373 

7640 

5221 

1172 

0374 

7450 

5241 

7104 

1172 

3172 

7004 

1171 

3171 
4711 
4300 
1170 
7640 
5241 
5275 
4710 

1170 
7650 
5275 
2320 
5247 

1375 ROTL, 
3320 

1171 
7110 

1313 
7510 
5247 

1314 
7700 
5247 

7300 ERROR, 

1317 

6046 

6041 


DC A EXP 
TAD EXP 
TAD EXP 
TAD EXP 
DC A EXP 
TAD EXP 
SMA CLA 
JMP ROTL 
JMP ROTR 
JMS I RTARPT 
JMS MSETUP 
TAD EXP 
TAD PP3 
SZA CLA 
JMP ROTR-2 
TAD EX P+2 
AND P4 
SNA 
JMP .+7 
CLL RAL 
TAD EX P+2 
DCA EX P+2 
RAL 

TAD EXM 
DCA EXP+1 
JMS I RTARPT 
JMS MSETUP 
TAD EXP 
SZA CLA 
JMP .-4 
JMP OUT 
JMS I RTALPT 
TAD EXP 
SNA CLA 
JMP OUT 
ISZ COUNT1 
JMP .-5 
TAD MM3 
DCA COUNT1 
TAD EXP+1 
CLL RAR 
TAD TEST1 
SPA 

JMP ROTL-6 
TAD TEST2 
SMA CLA 
JMP ROTL-6 
CLA CLL 
TAD BELL 
TLS 
TSF 
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$144 

5274 

5271 


$145 

5275 

1316 

OUT, 

$146 

5276 

317$ 


$147 

5277 

56$$ 


$15$ 

5300 

0000 

MSETUP, 

$151 

530] 

1315 


$152 

5302 

7650 


$153 

5303 

5700 


$154 

5304 

1171 


$155 

5305 

1312 


$156 

5306 

3171 


$157 

5307 

57$$ 


$16$ 

531$ 

5546 

RTALPT, 

$161 

5311 

5531 

RTARPT, 

$162 

5312 

4$$$ 

K4$0$, 

$163 

5313 

76$$ 

TEST1, 

$164 

5314 

44$$ 

TEST2, 

$165 

5315 

0000 

MFLAG, 

$166 

5316 

0000 

FPORDP, 

$167 

5317 

0207 

BELL, 

$17$ 



*532$ 

$171 

532$ 

0000 

FPDP, 

$172 

5321 

7300 


$173 

5322 

3316 


$174 

5323 

2316 


$175 

5324 

5330 


$176 

5325 

0000 

DPFP, 

$177 

5326 

7300 


0200 

5327 

3316 


020] 

5330 

4365 


0202 

5331 

4346 


0203 

5332 

1316 


0204 

5333 

765$ 


0205 

5334 

5776 


0206 

5335 

5777 


0207 

5336 

1315 

IN, 

$21$ 

5337 

764$ 


$211 

534$ 

4346 


$212 

5341 

3315 


$213 

5342 

1316 


$214 

5343 

765$ 


$215 

5344 

5725 


$216 

5345 

572$ 


$217 

5346 

0000 

FMINUS 

$22$ 

5347 

1315 


$221 

535$ 

765$ 


$222 

5351 

5746 


$223 

5352 

7300 


$224 

5353 

1171 



JMP .-3 
TAD EXPHLD 
DCA EXP 
JMP I ROTATE 
0 

TAD MFLAG 
SNA CLA 
JMP I MSETUP 
TAD EX P+1 
TAD K4$$0 
DCA EX P+1 
JMP I MSETUP 
ROTAL 
ROTAR 
4$0$ 

- 2 $$ 

-3400 

0 

0 

207 

0 

CLA CLL 
DCA FPORDP 
ISZ FPORDP 
JMP .+4 

0 

CLA CLL 
DCA FPORDP 
JMS MTEST 
JMS FMINUS 
TAD FPORDP 
SNA CLA 
JMP I DFPT 
JMP I FDPT 
TAD MFLAG 
SZA CLA 
JMS FMINUS 
DCA MFLAG 
TAD FPORDP 
SNA CLA 
JMP I DPFP 
JMP I FPDP 

P 

TAD MFLAG 
SNA CLA 
JMP I FMINUS 
CLA CLL 
TAD EX P+1 



k 


$ 


ms 

5354 

7040 


CMA 


0226 

5355 

3171 


DCA EX P+1 


0227 

5356 

1172 


TAD EX P+2 


0230 

5357 

7$41 


CIA 


0231 

5360 

3172 


DCA EX P+2 


0232 

5361 

72$4 


GLK 


0233 

5362 

1171 


TAD EXP+1 


0234 

5363 

3171 


DCA EXP+1 


0235 

5364 

5746 


JMP I FMINUS 


0236 

5365 

0000 

MTEST, 

0 


0237 

5366 

1171 


TAD EXP+1 


0240 

5367 

7710 


SPA CLA 


0241 

5370 

7001 


IAC 


0242 

5371 

3315 


DCA MFLAG 


l 0243 
0244 

5372 

5765 


JMP I MTEST 


5373 

$$$3 

PP3, 

3 


0245 

5374 

$$$4 

P4, 

4 


0246 

5375 

7775 

MM3, 

-3 


0247 

5376 

5476 

DFPT, 

DPTOFP 


0250 

5377 

54$$ 

FDPT, 

FPTODP 


0251 



*54$$ 



0252 

5400 

73$$ 

FPTODP, 

CLA CLL 


0253 

5401 

117$ 


TAD EXP 

//SET COUNT=EXP 

0254 

5402 

3375 


DCA COUNT 

//FOR PRELIMINARIES 

0255 

5403 

1375 


TAD COUNT 


0256 

5404 

1366 


TAD P23 


0257 

5405 

771$ 


SPA CLA 

//FP NUM TOO SMALL? 

0260 

5406 

5764 


JMP I ERRPT 


0261 

5407 

1375 


TAD COUNT 

//NO: GO ON 

0262 

5410 

1372 


TAD M24 


0263 
C ,0264 

5411 

7700 


SMA CLA 

//FP NUM TOO BIG? 

5412 

5764 


JMP I ERRPT 


0265 

5413 

1375 

GO, 

TAD COUNT 

//NO: GO ON 

0266 

5414 

754$ 


SMA SZA 

//COUNT>ZERO? 

0267 

5415 

5222 


JMP CHECK1 

//YES: CHECK IF EXP=1,2,3 

0270 

5416 

1365 


TAD P3 

//NO: ADD +3 TILL 

0271 

5417 

5214 


JMP .-3 

//COUNT>ZERO 

0272 

542$ 

3375 


DCA COUNT 


0273 

5421 

1375 


TAD COUNT 


0274 

5422 

1367 

CHECK1, 

TAD Ml 


0275 

5423 

744$ 


SZA 

//COUNT=l? 

0276 

5424 

5227 


JMP CHECK2 

//NO 

0277 

5425 

4331 


JMS ROTAR 

/AES: ROTATE FP NUM 

0300 

5426 

5236 


JMP FIG1 

//ONE PLACE RIGHT 

0301 

5427 

1367 

CHECK2, 

TAD Ml 

0302 

543$ 

745$ 


SNA 

//COUNT=2? 

0303 

5431 

5236 


JMP FIG1 

/AES: ALL IS COOL 

0304 

5432 

1367 

CHECK3, 

TAD Ml 

//NO 

0305 

5433 

744$ 


SZA 

//COUNT =3? 
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0306 

5434 

5220 


JMP CHECK 1-2 

03 07 

5435 

4346 


JMS ROTAL 

J031jZf 

J0311 

5436 

1170 

FIG1, 

TAD EXP 

,0312 

5437 

7001 


IAC 

0313 

5440 

7710 


SPA CLA 

0314 

5441 

5252 


JMP FIG1A 

0315 

5442 

1170 


TAD EXP 

0316 

5443 

1371 


TAD M23 

0317 

5444 

7700 


SMA CLA 

0320 

5445 

5263 


JMP FIG2 

0321 

5446 

1172 


TAD EX P+2 

0322 

5447 

0373 


AND MASK! 

0323 

5450 

7640 


SZA CU 

0324 

5451 

5260 


JMP FIG1B 

0325 

5452 

1370 

FIG1A, 

TAD M3 

0326 

5453 

3375 


DCA COUNT 

0327 

5454 

4331 


JMS ROTAR 

0330 

5455 

2375 


ISZ COUNT 

0331 

5456 

5254 


JMP .-2 

0332 

5457 

5236 


JMPFIG1 

0333 

5460 

1171 

FIG1B, 

TAD EXPfl 

0334 

5461 

7710 


SPA CLA 

0335 

5462 

5252 


JMPFIG1A 

0336 

5463 

3375 

FIG2, 

DCA COUNT 

0337 

5464 

1170 


TAD EXP 

0340 

5465 

7001 


IAC 

0341 

5466 

7450 


SNA 

0342 

5467 

5273 


JMP FIG3 

0343 

5470 

1370 


TAD M3 

0344 

5471 

2375 


ISZ COUNT 

0345 

5472 

5266 


JMP .-4 

0346 

5473 

1375 

FIG3, 

TAD COUNT 

0347 

5474 

3170 


DCA EXP 

0350 

5475 

5763 


JMP IINPT 

0351 

5476 

7300 

DPTOFP, 

CU CLL 

0352 

5477 

1170 


TAD EXP 

0353 

5500 

1170 


TAD EXP 

0354 

550] 

]]70 


TAD EXP 

0355 

5502 

1367 


TAD Ml 

0356 

5503 

3376 


DCA RDIXMV 

0357 

5504 

3170 


DCA EXP 

0360 

5505 

1171 


TAD EX P+1 

0361 

5506 

7700 


SMA CU 

0362 

5507 

5312 


JMP CONVRT 

0363 

55]0 

4331 


JMS ROTAR 

0364 

5511 

5325 


JMP EXPCLC 

0365 

5512 

1171 

CONVRT, 

TAD EX P+1 


//NO: GO CHECK AGAIN 
//YES: ROTATE FP NUM 
//ONE PLACE LEFT 


//END OF FP NUM YET? 

/AES 

//NO 

//LAST PUCE OF LSH FILLED YET? 
//ROTATE RIGHT 3 TIMES 


//DIVISION DONE YET 

/AES 

//NO 


//COUNT=RADIX PUCE OF 
//DP NUM 


//RDIXMV=(3 X EXP) + 1 


//DP NUM ONE PUCE TOO LEFT? 
//NO 

/AES: rotate one puce right 
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t 


4 


0366 

5513 

0374 


AND MASK2 


0367 

5514 

7640 


SZA CLA 

//DP NUM RIGHT YET? 

0370 

5515 

5325 


JMP EXPCLC 

//YES 

0371 

5516 

4346 


JMS ROTAL 

//NO 

0372 

5517 

1170 


TAD EXP 


0373 

5520 

1366 


TAD P23 


0374 

5521 

7640 


SZA CLA 

//DONE THE WHOLE NUM YET? 

0375 

5522 

5312 


JMP CONVRT 

//NO 

0376 

5523 

3170 


DCA EXP 

//YES: GO AWAY 

0377 

5524 

5763 


JMP I INPT 


0400 

5525 

1170 

EXPCLC, 

TAD EXP 


0401 

5526 

1376 


TAD RDIXMV 


0402 

5527 

3170 


DCA EXP 

//VALUE OF FP EXPONENT 

0403 

5530 

5763 


JMP I INPT 


(L 0404 

5531 

0000 

ROTAR, 

0 

//ROTATES BOTH HALVES OF 

0405 

5532 

7300 


CLA CLL 

//NUM (MSH AND LSH) RIGHT 

0406 

5533 

1170 


TAD EXP 

//ONE PLACE. ADDS +1 TO 

0407 

5534 

7001 


IAC 

//EXP 

0410 

5535 

3170 


DCA EXP 


0411 

5536 

1171 


TAD EXP+1 


0412 

5537 

7110 


CLL RAR 


0413 

5540 

3171 


DCA EX P+1 


0414 

5541 

1172 


TAD EX P+2 


0415 

5542 

7010 


RAR 


0416 

5543 

3172 


DCA EX P+2 


0417 

5544 

7300 


CLA CLL 


0420 

5545 

5731 


JMP I ROTAR 


0421 

5546 

0000 

ROTAL, 

0 

//ROTATES BOTH HALVES OF 

0422 

5547 

7300 


CLA CLL 

//NUM (MSH AND LSH) LEFT 

0423 

5550 

1170 


TAD EXP 

//ONE PLACE. ADDS -1 TO 

0424 

5551 

1367 


TAD Ml 

//EXP 

C 0425 

5552 

3170 


DCA EXP 


0426 

5553 

1172 


TAD EX P+2 


0427 

5554 

7104 


CLL RAL 


0430 

5555 

3172 


DCA EX P+2 


0431 

5556 

1171 


TAD EX P+1 


0432 

5557 

7004 


RAL 


0433 

5560 

3171 


DCA EX P+1 


0434 

5561 

7300 


CLA CLL 


0435 

5562 

5746 


JMP I ROTAL 


0436 

5563 

5336 

INPT, 

IN 


0437 

5564 

5267 

ERRPT, 

ERROR 


0440 

5565 

0003 

P3, 

3 


0441 

5566 

0027 

P23, 

27 


0442 

5567 

7777 

Ml, 

-1 


0443 

5570 

7775 

M3, 

-3 


0444 

5571 

7751 

M23/ 

-27 


0445 

5572 

7750 

M24/ 

-30 
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Si 


0446 

5573 

0007 

MASK1, 

mi 

0447 

5574 

2000 

MASK2, 

2 m 

0450 

5575 

0000 

COUNT, 

* 

0451 

0452 

0453 

5576 

0000 

RDIXMV, 

EXPHLD=FPORDP 
COUNT! =FPDP 


NO ERRORS 


BELL 

CHECK1 

CHECK2 

CHECK3 

CONVRT 

COUNT 

COUNT! 

DFPT 

DPFP 

DPTOFP 

ERROR 

ERRPT 

EXP 

EXPCLC 

EXPHLD 

FDPT 

FIG! 

FIG1A 

FIG IB 

FIG2 

FIG3 

FMINUS 

FPDP 

FPORDP 

FPTODP 

GO 

IN 

INPT 

K4000 

LI 73 

LI 74 

L! 75 

MASK1 

MASK2 

MFLAG 

MM3 

MSETUP 

MTEST 

Ml 


5317 

5422 

5427 

5432 

5512 

5575 

5320 

5376 
5325 
5476 
5267 
5564 
0170 
5525 
5316 

5377 
5436 
5452 
5460 
5463 
5473 
5346 
5320 
5316 


54jefj0 
5413 
5336 
5563 
5312 
jell 73 
0174 
0175 

5573 

5574 
5315 
5375 
5300 
5365 
5567 
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M2 3 

5571 

M24 

5572 

M3 

5570 

OUT 

5275 

PP3 

5373 

P23 

5566 

P3 

5565 

P4 

5374 

RDIXMV 

5576 

ROTAL 

5546 

ROTAR 

5531 

ROTATE 

5200 

ROTL 

5255 

ROTR 

5223 

RTALPT 

5310 

RTARPT 

5311 

TEST! 

5313 

TEST2 

5314 








